﻿Imports System
Imports System.Collections
Imports System.Data.SqlTypes

Public Class UsuarioBE
#Region "Campos y Propiedades"
    Private _IdUsuario As Integer
    Private _Nombre As String
    Private _Login As String
    Private _Password As String
    Private _Email As String
    Private _TipoAcceso As String
    Private _Habilitado As String
    Private _FechaCreacion As DateTime
    Private _FechaBaja As Date
    Private _Estado As String

    Public Property IdUsuario() As Integer
        Get
            Return _IdUsuario
        End Get
        Set(ByVal value As Integer)
            _IdUsuario = value
        End Set
    End Property

    Public Property Nombre() As String
        Get
            Return _Nombre
        End Get
        Set(ByVal value As String)
            _Nombre = value
        End Set
    End Property

    Public Property Login() As String
        Get
            Return _Login
        End Get
        Set(ByVal value As String)
            _Login = value
        End Set
    End Property

    Public Property Password() As String
        Get
            Return _Password
        End Get
        Set(ByVal value As String)
            _Password = value
        End Set
    End Property

    Public Property Email() As String
        Get
            Return _Email
        End Get
        Set(ByVal value As String)
            _Email = value
        End Set
    End Property

    Public Property TipoAcceso() As String
        Get
            Return _TipoAcceso
        End Get
        Set(ByVal value As String)
            _TipoAcceso = value
        End Set
    End Property

    Public Property Habilitado() As String
        Get
            Return _Habilitado
        End Get
        Set(ByVal value As String)
            _Habilitado = value
        End Set
    End Property

    Public Property FechaCreacion() As DateTime
        Get
            Return _FechaCreacion
        End Get
        Set(ByVal value As DateTime)
            _FechaCreacion = value
        End Set
    End Property

    Public Property FechaBaja() As DateTime
        Get
            Return _FechaBaja
        End Get
        Set(ByVal value As DateTime)
            _FechaBaja = value
        End Set
    End Property

    Public Property Estado() As String
        Get
            Return _Estado
        End Get
        Set(ByVal value As String)
            _Estado = value
        End Set
    End Property


#End Region

#Region "Constructores"

    Public Sub New()

    End Sub

    Public Sub New(ByVal IdUsuario As Integer, ByVal Nombre As String, ByVal Login As String, ByVal Password As String, ByVal Email As String, ByVal TipoAcceso As String, ByVal Habilitado As Object, ByVal FechaCreacion As DateTime, ByVal FechaBaja As DateTime, ByVal Estado As String)
        Me._IdUsuario = IdUsuario
        Me._Nombre = Nombre
        Me._Login = Login
        Me._Password = Password
        Me._Email = Email
        Me._TipoAcceso = TipoAcceso
        Me._Habilitado = Habilitado
        Me._FechaCreacion = FechaCreacion
        Me._FechaBaja = FechaBaja
        Me._Estado = Estado
    End Sub
#End Region
End Class
#Region "Clase Colleccion"
Public Class UsuarioBECollection
    Inherits CollectionBase

    Default Public Property Item(ByVal index As Integer) As UsuarioBE
        Get
            Return CType(List(index), UsuarioBE)
        End Get
        Set(ByVal value As UsuarioBE)
            List(index) = value
        End Set
    End Property

    Public Function Add(ByVal value As UsuarioBE) As Integer
        Return (List.Add(value))
    End Function

    Public Function IndexOf(ByVal value As UsuarioBE) As Integer
        Return (List.IndexOf(value))
    End Function

    Public Sub Insert(ByVal index As Integer, ByVal value As UsuarioBE)
        List.Insert(index, value)
    End Sub

    Public Sub Remove(ByVal value As UsuarioBE)
        List.Remove(value)
    End Sub

    Public Function Contains(ByVal value As UsuarioBE) As Boolean
        Return (List.Contains(value))
    End Function
End Class
#End Region




